; 虽然做出来了，但好像还有很多东东没想明白
; 使用append 改变cons 组成结构

(define (my-reverse2 listx list2)    
    (if (null? listx)
        list2
        (append            
            (my-reverse2  
                (cdr listx) 
                list2
            )            
            (append 
                list2                
                (cons (car listx) `())
            )           
        )
    )        
)
(define (my-reverse lista)
    (my-reverse2 lista (list ))
)
(display (my-reverse (list 1 4 9 16 25)))
(exit)